home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aah.d64 / meditation (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  140 lines
  1. 100 PRINT"([147])"
  2. 120 PRINT"THE MELODY 'MEDITATION' IS FROM"
  3. 130 PRINT"THE OPERA 'THAIS' BY JULES"
  4. 140 PRINT"MASSENET (1842-1912)."
  5. 150 PRINT"PLEASE WAIT ABOUT A MINUTE AND A HALF."
  6. 160 FORT=1TO9000:NEXT
  7. 400 REM 'MEDITATION' MUSIC BY JULES MAS-    SENET (1842-1912).
  8. 405 REM MUSIC HAD TO BE MODIFIED SLIGHT--LY FOR PROGRAMMING PURPOSES.
  9. 410 REM ARRANGED BY BOB HANDFORTH.
  10. 500 PRINT"([147])":V=53248:M=54272
  11. 510 POKEV+32,0:POKEV+33,14
  12. 520 FORX=1664TO2023:POKEX,224:POKEX+M,6:NEXT
  13. 530 POKE2040,13:POKE2041,14:POKE2042,15
  14. 540 POKEV+39,1:POKEV+40,1:POKEV+41,1
  15. 550 FORX=0TO2:FORN=0TO62:READ Q:POKE832+N+64*X,Q:NEXT N:NEXT X
  16. 560 POKEV+1,159:POKEV+3,159:POKEV+5,159
  17. 600 DATA0,0,8,0,0,24,0,0,28,0,0,28,0,0,28,0,0,30,0,0,62
  18. 610 DATA0,0,62,0,0,126,0,0,126,0,0,254,0,0,254,0,1,254,0,3,254
  19. 620 DATA0,7,252,0,15,252,0,31,252,0,127,248,0,255,248,0,0,96,7,255,248
  20. 650 DATA0,0,8,0,0,12,0,0,12,0,0,12,0,0,14,0,0,14,0,0,14
  21. 660 DATA0,0,14,0,0,14,0,0,14,0,0,14,0,0,14,0,0,14,0,0,14
  22. 670 DATA0,0,14,0,0,12,0,0,12,0,0,8,0,0,8,0,0,126,0,0,60
  23. 700 DATA16,0,0,24,0,0,56,0,0,56,0,0,56,0,0,120,0,0,124,0,0
  24. 710 DATA124,0,0,126,0,0,126,0,0,127,0,0,127,0,0,127,128,0,127,192,0
  25. 720 DATA63,224,0,63,240,0,63,248,0,31,254,0,31,255,0,6,0,0,31,255,224
  26. 1020 FORS=54272TO54296:POKES,0:NEXT
  27. 1040 DIMH(710,2),L(710,2),D(710,2)
  28. 1050 V(0)=33:V(1)=17:V(2)=17
  29. 1060 FOR K=0TO2
  30. 1070 I=0
  31. 1080 READ N,DR
  32. 1081 IFI>309 AND I<702 THENV(0)=17
  33. 1090 IF DR=0 THEN 1160
  34. 1100 WF=V(K):WX=WF-1
  35. 1110 HF%=N/256:LF%=N-256*HF%
  36. 1120 IFDR=1THENH(I,K)=HF%:L(I,K)=LF%:D(I,K)=WF:I=I+1:GOTO1080
  37. 1130 FORJ=1TODR-1:H(I,K)=HF%:L(I,K)=LF%:D(I,K)=WF:I=I+1:NEXT
  38. 1140 H(I,K)=HF%:L(I,K)=LF%:D(I,K)=WX
  39. 1150 I=I+1:GOTO1080
  40. 1160 NEXT K
  41. 1200 POKEM+5,0:POKEM+6,255
  42. 1210 POKEM+12,0:POKEM+13,255
  43. 1220 POKEM+19,0:POKEM+20,255
  44. 1230 POKEM+24,15
  45. 1240 B=0
  46. 1250 P1=0:P2=0:P3=0
  47. 1280 POKEM,L(P1,0):POKEM+1,H(P1,0)
  48. 1290 POKEM+7,L(P2,1):POKEM+8,H(P2,1)
  49. 1300 POKEM+14,L(P3,2):POKEM+15,H(P3,2)
  50. 1310 POKEM+4,D(P1,0):POKEM+11,D(P2,1):POKEM+18,D(P3,2)
  51. 1320 FORT=1TO45:NEXT
  52. 1322 POKEV+21,7
  53. 1324 IFP1>0 AND P1<341 THENPOKEV,P1*.75
  54. 1326 IFP1>340 AND P1<362 THENPOKEV,0:POKEV+2,254
  55. 1327 IFP1>361 ANDP1<698THENPOKEV+2,0:POKEV+4,516-P1*.74
  56. 1330 P1=P1+1:P2=P2+1:P3=P3+1
  57. 1350 IFD(P1,0)=0THEN5000
  58. 1360 IFD(P2,1)=0THEN5100
  59. 1370 IFD(P3,2)=0THEN5200
  60. 1390 GOTO1280
  61. 2000 DATA0,2
  62. 2005 DATA9094,10,7217,2,5407,2,7217,1,9094,1,12139,8,13625,4,14435,4
  63. 2010 DATA7217,6,8101,2,9094,2,8583,1,9094,1,10814,2,5407,2,6069,12,6812,2
  64. 2015 DATA7217,2,9094,2,8101,2,9634,8,7647,2,8101,2,9094,2,9634,2,10814,2
  65. 2020 DATA12139,6,6069,4,6812,8,7217,4,8101,1,7217,1,6812,1,7217,1,8101,8,8583,8
  66. 2025 DATA9094,10,7217,2,5407,2,7217,1,9094,1,12139,8,13625,4,14435,4
  67. 2030 DATA9094,11,7217,1,5407,1,7217,1,9094,1,10814,1,12860,8,14435,4,16203,4
  68. 2035 DATA18188,10,15294,2,12139,2,9094,1,7647,1,10814,3,9634,1,8101,1,6069,2
  69. 2040 DATA4817,1,9094,3,8101,1,6069,1,4817,1,4050,2,7217,3,5407,1,4547,2,3608,1
  70. 2045 DATA2703,1,3034,4,3406,2,3608,2,4050,8,4547,4,4817,4
  71. 2050 DATA4050,4,4547,4,3034,4,4050,4,3608,9,3406,10,3608,18,0,1
  72. 2055 DATA6430,10,4817,2,5407,2,4050,2,4817,4,4547,8,5728,2,6812,1,8101,1
  73. 2060 DATA8101,10,6069,2,6812,2,4817,2,6069,4,5407,8,6812,2,8101,1,9634,1
  74. 2065 DATA9634,6,10814,2,12139,2,9094,2,7217,2,6069,2,8101,3,9094,1,8101,1
  75. 2070 DATA7647,1,8101,1,9094,1,9634,2,8101,2,6430,2,4817,2,5728,8
  76. 2075 DATA5407,4,4817,4,10814,4,9634,2,8583,2,8101,4,7217,2,6430,2
  77. 2080 DATA14435,6,12860,2,10814,6,12860,2,16203,6,14435,2,12860,4,10814,2
  78. 2085 DATA12860,2,17167,6,16203,2,19269,2,17167,2,12860,2,10207,2,8583,2,8101,2
  79. 2090 DATA9634,2,8583,2,8583,2,6430,2,5103,2,4291,2,4291,3,4050,1,4050,6,4291,2
  80. 2095 DATA4817,2,5407,2,5728,3,4817,1,4050,1,4817,1,5728,1,6812,1,8101,2,9094,3
  81. 2097 DATA9634,4,10207,5,10814,6,0,5
  82. 2100 DATA6812,8,7217,11,5407,1,4547,1,5407,1,7217,1,9094,1,12139,12
  83. 2105 DATA13625,4,18188,6,14435,2,10814,2,9094,2,7217,2,5407,2,4817,4,5728,8
  84. 2110 DATA3406,5,3608,10,0,1,3406,2,3608,2,4050,3,3608,10,0,1,3406,2,3608,2
  85. 2115 DATA4050,3,3608,9,0,2,3608,9,0,2,3608,14,0,8,0,0
  86. 3000 DATA0,2
  87. 3005 DATA8985,10,7130,2,5342,2,7130,1,8985,1,11993,8,13462,4,14262,4
  88. 3010 DATA7130,6,8004,2,8985,2,8480,1,8985,1,10684,2,5342,2,5996,12,6730,2
  89. 3015 DATA7130,2,8985,2,8004,2,9518,8,7555,2,8004,2,8985,2,9518,2,10684,2
  90. 3020 DATA11993,6,5996,4,6730,8,7130,4,8004,1,7130,1,6730,1,7130,1,8004,8,8480,8
  91. 3025 DATA8985,10,7130,2,5342,2,7130,1,8985,1,11993,8,13462,4,14262,4
  92. 3030 DATA8985,11,7130,1,5342,1,7130,1,8985,1,10684,1,12706,8,14262,4,16009,4
  93. 3035 DATA17970,10,15110,2,11993,2,8985,1,7555,1,10684,3,9518,1,8004,1,5996,2
  94. 3040 DATA4759,1,8985,3,8004,1,5996,1,4759,1,4001,2,7130,3,5342,1,4492,2,3565,1
  95. 3045 DATA2671,1,2998,4,3365,2,3565,2,4001,8,4492,4,4759,4
  96. 3050 DATA4001,4,4492,4,2998,4,4001,4,3565,9,3365,10,3565,18,0,1
  97. 3055 DATA6353,10,4759,2,5342,2,4001,2,4759,4,4492,8,5659,2,6730,1,8004,1
  98. 3060 DATA8004,10,5996,2,6730,2,4759,2,5996,4,5342,8,6730,2,8004,1,9518,1
  99. 3065 DATA9518,6,10684,2,11993,2,8985,2,7130,2,5996,2,8004,3,8985,1,8004,1
  100. 3070 DATA7555,1,8004,1,8985,1,9518,2,8004,2,6353,2,4759,2,5659,8
  101. 3075 DATA5342,4,4759,4,10684,4,9518,2,8480,2,8004,4,7130,2,6353,2
  102. 3080 DATA14262,6,12706,2,10684,6,12706,2,16009,6,14262,2,12706,4,10684,2
  103. 3085 DATA12706,2,16961,6,16009,2,19036,2,16961,2,12706,2,10085,2,8480,2,8004,2
  104. 3090 DATA9518,2,8480,2,8480,2,6353,2,5042,2,4240,2,4240,3,4001,1,4001,6,4240,2
  105. 3095 DATA4759,2,5342,2,5659,3,4759,1,4001,1,4759,1,5659,1,6730,1,8004,2,8985,3
  106. 3097 DATA9518,4,10085,5,10684,6,0,5
  107. 3100 DATA6730,8,7130,11,5342,1,4492,1,5342,1,7130,1,8985,1,11993,12
  108. 3105 DATA13462,4,17970,6,14262,2,10684,2,8985,2,7130,2,5342,2,4759,4,5659,8
  109. 3110 DATA3365,5,3565,10,0,1,3365,2,3565,2,4010,3,3568,10,0,1,3366,2,3568,2
  110. 3115 DATA4001,3,3565,9,0,2,3565,9,0,2,3565,14,0,8,0,0
  111. 4000 DATA0,2
  112. 4005 DATA1804,4,2703,4,2273,4,2703,4,1804,4,2703,4,2273,4,2703,4
  113. 4010 DATA1804,4,2703,4,2273,4,2703,4,1204,4,1804,4,1204,4,1517,4
  114. 4015 DATA1517,4,2025,4,2408,4,3034,4,1517,4,2025,4,2408,4,3034,4
  115. 4020 DATA2703,4,2025,4,2551,4,1517,4,1351,4,1703,4,1351,4,1703,4
  116. 4025 DATA1804,4,2703,4,2273,4,2703,4,1804,4,2703,4,2273,4,2703,4
  117. 4030 DATA1804,4,2703,4,2273,4,2703,4,1607,4,2408,4,1607,4,2025,4
  118. 4035 DATA1517,4,1911,4,2273,4,1911,4
  119. 4040 DATA2025,4,2408,4,1517,4,2408,4,1804,4,1351,4,2025,4,2408,4
  120. 4045 DATA2025,4,2408,4,3034,4,2408,4,2025,4,1204,4,2025,4,1517,4
  121. 4050 DATA2025,4,1517,5,1351,5,2025,5,1804,4,2703,4,2273,5,2703,5,0,1
  122. 4055 DATA1607,4,2408,4,2025,4,2408,4,1703,4,1432,4,2025,4,2273,4
  123. 4060 DATA2703,4,1703,4,2408,4,2025,4,2703,4,1703,4,2408,4,2025,4
  124. 4065 DATA2408,4,1804,4,2273,4,3034,4,3215,4,2703,4,1607,4,2025,4
  125. 4070 DATA1607,4,2408,4,2025,4,2864,4,3215,4,2864,4,2408,4,2025,4
  126. 4075 DATA2145,4,2703,4,3215,4,2703,4,3215,4,2703,4,2145,4,1607,4
  127. 4080 DATA1275,4,1607,4,2551,4,2145,4,1275,4,1607,4,2551,4,2145,4
  128. 4085 DATA2703,4,1703,4,2408,4,2025,4,2025,4,2408,4,2408,2,2703,3,3034,4
  129. 4087 DATA3215,5,3406,6,0,5,2408,8
  130. 4090 DATA1804,4,2703,4,2273,4,2703,4,1703,4,2145,4,2551,4,3034,4
  131. 4095 DATA1804,4,2703,4,2273,4,2703,4,1911,4,1703,4,1204,4,1351,5
  132. 4100 DATA902,2,1136,2,1351,2,1517,2,1804,3,0,7
  133. 4105 DATA902,2,1136,2,1351,2,1517,2,1804,3,0,7
  134. 4110 DATA1804,9,0,2,2273,9,0,2,1804,14,0,8,0,0
  135. 5000 P1=1:GOTO1360
  136. 5100 P2=49:GOTO1370
  137. 5200 P3=1:P2=1:B=B+1:IFB=2THEN5300
  138. 5250 GOTO1280
  139. 5300 PRINT"([147])":POKEV+32,14:POKEV+33,6:END
  140.